﻿Imports ControladorasAT.SIREOS
Imports ServiciosAT
Imports Utilitarios
Imports System.Data

Partial Class Login
    Inherits System.Web.UI.Page

    Dim script As String

    Private Function ValidarCampos() As Boolean
        If TxbUsuario.Text = Valores.vacio Then
            Valores.mensajevar = Mensajes.IngresarUsuario
            Return False
        ElseIf TxbPassword.Text = Valores.vacio Then
            Valores.mensajevar = Mensajes.IngresarPassword
            Return False
        Else
            Return True
        End If
    End Function

    Private Function validarNombreUsuario() As Integer
        Dim oUsuarioBE As New SireosWSSeguridad.Usuario
        oUsuarioBE.nomUsuario = TxbUsuario.Text
        oUsuarioBE.pwdUsuario = Helper.Encripta(TxbPassword.Text)

        Dim oCtUsuario As New CtSeguridad
        Dim retorno As Integer = oCtUsuario.validarNombreUsuario(oUsuarioBE)

        Return retorno

    End Function

    Private Sub ValidarUsuario()
        Dim resul As Integer = validarNombreUsuario()
        If resul > 0 Then
            Dim oUsuarioBE As New SireosWSSeguridad.Usuario
            oUsuarioBE.nomUsuario = TxbUsuario.Text
            oUsuarioBE.pwdUsuario = Helper.Encripta(TxbPassword.Text)

            Dim oCtUsuario As New CtSeguridad
            resul = oCtUsuario.validarUsuario(oUsuarioBE)
            If resul > 0 Then
                Session("CodigoUsuario") = resul
                Helper.MensajeAlerta(Me, Mensajes.bienvenido)
                Response.Redirect("Pages\Inicio.aspx")
            Else
                Helper.MensajeAlerta(Me, Mensajes.errorContrasena)
            End If
        Else
            Helper.MensajeAlerta(Me, Mensajes.noExisteUsuario)
        End If
    End Sub

    Protected Sub ibtnAcceder_Click(sender As Object, e As ImageClickEventArgs) Handles ibtnAcceder.Click
        If ValidarCampos() = True Then
            ValidarUsuario()
        Else
            Helper.MensajeAlerta(Me, Valores.mensajevar)
        End If
    End Sub

    Protected Sub lnkPassword_Click(sender As Object, e As EventArgs) Handles lnkPassword.Click
        If TxbUsuario.Text = Valores.vacio Then
            Helper.MensajeAlerta(Me, Mensajes.IngresarUsuario)
        Else
            Dim ret As Integer = validarNombreUsuario()
            If ret > 0 Then
                Session("CodigoUsuario") = ret
                Session("AliasUsuario") = TxbUsuario.Text.ToUpper
                script = "<script languaje=Javascript>window.open('Pages/CambioContrasena.aspx','ventanaTrime','toolbar=0,width=360,height=120,scrollbars=no,top=250,left=250');</script>"
                Response.Write(script)
            Else
                Helper.MensajeAlerta(Me, Mensajes.noExisteUsuario)
            End If
        End If
    End Sub

End Class
